Profile of (eval 315)[Sub/Quote.pm:3]

Filename	(eval 315)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 21 statements in 156µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	9µs	21µs	JSON::Schema::Modern::::BEGIN@7.169 JSON::Schema::Modern::BEGIN@7.169
1	1	1	9µs	19µs	JSON::Schema::Modern::validate_content_schemas
1	1	1	5µs	13µs	Method::Generate::Accessor::_Generated::BEGIN@24.171
1	1	1	3µs	3µs	Method::Generate::Accessor::_Generated::BEGIN@12.170

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4	1	0s			my $default_for_validate_5fcontent_5fschemas = ${$_[1]->{"\$default_for_validate_5fcontent_5fschemas"}};
5	1	0s			my $isa_check_for_validate_5fcontent_5fschemas = ${$_[1]->{"\$isa_check_for_validate_5fcontent_5fschemas"}};
6					package JSON::Schema::Modern;
7	2	35µs	2	33µs	# spent 21µs (9+12) within JSON::Schema::Modern::BEGIN@7.169 which was called: # once (9µs+12µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 21µs making 1 call to JSON::Schema::Modern::BEGIN@7.169 # spent 12µs making 1 call to warnings::unimport
8					# spent 19µs (9+10) within JSON::Schema::Modern::validate_content_schemas which was called: # once (9µs+10µs) by JSON::Schema::Modern::evaluate at line 353 of JSON/Schema/Modern.pm sub validate_content_schemas {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@12.170 which was called: # once (3µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	0s			$^H = 1762;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	35µs	1	3µs	} # spent 3µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.170
18					# END quote_sub PRELUDE
19	1	1µs			Carp::croak("validate_content_schemas is a read-only accessor") if @_ > 1;
20					exists $_[0]->{"validate_content_schemas"} ?
21					$_[0]->{"validate_content_schemas"}
22	1	4µs			: do {
23	1	3µs	1	10µs	my $value = $default_for_validate_5fcontent_5fschemas->($_[0]); # spent 10µs making 1 call to JSON::Schema::Modern::__ANON__[JSON/Schema/Modern.pm:90]
24	5	68µs	2	21µs	# spent 13µs (5+8) within Method::Generate::Accessor::_Generated::BEGIN@24.171 which was called: # once (5µs+8µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_validate_5fcontent_5fschemas, "Bool", $value, "attribute_name","validate_content_schemas","attribute_step","isa check","mgaca","0","varname","\$self->{\"validate_content_schemas\"}"); $value }; # spent 13µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.171 # spent 8µs making 1 call to warnings::unimport
25	1	1µs			$_[0]->{"validate_content_schemas"} = $value
26					}
27					}
28	1	1µs			$$_UNQUOTED = \&validate_content_schemas;
29					}
30	1	4µs			1;
31
32					;